home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d4 / jetset.arc / JETSET.BAS (.txt) next >
Encoding:
GW-BASIC  |  1988-08-21  |  25.3 KB  |  79 lines
  1. 1  ' *****JETSET*****
  2. 2  ' IFR FLIGHT SIMULATOR (BOEING 747)
  3. 3  ' CREATED BY GENE SZYMANSKI - BYTE 11-82
  4. 4  ' MODIFIED BY R. HOJABOOM - 11-6-82
  5. 6  DEF SEG=&H40
  6. 7  POKE &H17,(PEEK(&H17) OR 64)
  7. 9  ' SYSTEM CLOCK OFF
  8. 10  'AND AGAIN BY H.P.REISDORF 11/23/82
  9. 12  GOTO 10000
  10. 15  ' BEGIN CRUISE MODULE
  11. 20  CLEAR,,8000:RANDOMIZE 18
  12. 21  KM(0)=7915.7
  13. 22  KM(1)=23.2689
  14. 23  KM(2)=0.0525
  15. 24  KM(3)=0.000212999
  16. 25  DIM M$(20)
  17. 26  KR=57.2958:XQ=64
  18. 27  RS=1:IF RND(0)<0.5 THEN RS=-1
  19. 28  RW=(15-5)*RND(0)+5
  20. 29  RW=RS*RW:TRUE=-1:FALSE=0
  21. 30  ' SET UP WIND TABLE
  22. 32  DIM WA(10,1)
  23. 34  FOR I=0 TO 7:WA(I,0)=RND(359):NEXT
  24. 36  FOR I=8 TO 10:WA(I,0)=90*RND(0)+255:NEXT
  25. 38  A=0
  26. 40  FOR I=1 TO 10:WA(I,1)=25*RND(0)+A:A=A+25:NEXT
  27. 41  RS$(0)=STRING$(31,"_")
  28. 42  RS$(1)=SPACE$(13)+".   ."+SPACE$(13)
  29. 43  RS$(2)=SPACE$(11)+".       ."
  30. 44  RS$(3)=SPACE$(9)+STRING$(13,"_")
  31. 45  ' VOR FREQ TABLE
  32. 46  DIM VF(15)
  33. 47  VF(0)=115.9:VF(1)=113.8:VF(2)=112.7
  34. 48  VF(3)=117.7:VF(4)=117.8:VF(5)=112.2
  35. 49  VF(6)=117.4:VF(7)=115.5:VF(8)=116.4
  36. 50  VF(9)=113.6:VF(10)=116.9:VF(11)=117
  37. 51  VF(12)=112.3:VF(13)=117.9:VF(14)=115.7
  38. 52  VF(15)=112.8
  39. 62  ' ILS CONSTANTS FOR AIRPORTS
  40. 63  DIM VG(15,1)
  41. 64  VG(0,0)=238:VG(0,1)=28
  42. 66  VG(2,1)=240:VG(2,1)=30
  43. 69  VG(5,0)=90:VG(5,1)=217
  44. 71  VG(7,0)=299:VG(7,1)=164
  45. 72  VG(8,0)=166:VG(8,1)=42
  46. 79  VG(15,0)=341:VG(15,1)=75
  47. 100  ' VOR STATION COORDINATE TABLE
  48. 101  DIM VP(15,1)
  49. 102  VP(0,0)=40.633:VP(0,1)=73.773
  50. 103  VP(1,0)=40.202:VP(1,1)=74.495
  51. 104  VP(2,0)=42.358:VP(2,1)=70.993
  52. 105  VP(3,0)=41.282:VP(3,1)=70.027
  53. 106  VP(4,0)=42.743:VP(4,1)=73.802
  54. 107  VP(5,0)=46.412:VP(5,1)=84.315
  55. 108  VP(6,0)=38.35:VP(6,1)=81.77
  56. 109  VP(7,0)=40.917:VP(7,1)=77.993
  57. 110  VP(8,0)=42.928:VP(8,1)=78.647
  58. 111  VP(9,0)=41.358:VP(9,1)=82.162
  59. 112  VP(10,0)=42.967:VP(10,1)=83.742
  60. 113  VP(11,0)=44.555:VP(11,1)=88.195
  61. 114  VP(12,0)=41.547:VP(12,1)=88.318
  62. 115  VP(13,0)=39.495:VP(13,1)=76.978
  63. 116  VP(14,0)=42.048:VP(14,1)=83.458
  64. 117  VP(15,0)=39.637:VP(15,1)=75.303
  65. 155  DATA FUEL,LBS,%,VHF,MHZ,THRUST,MAX,IDLE,REV
  66. 160  DATA PITCH," +"," -",DEG,FLAPS,UP,DWN,WHEELS,UP,MID,DOWN
  67. 165  DATA COMPASS,AIRSPEED,KTS," VERT",SPEED,FPM
  68. 170  DATA ALTITUDE,FEET,CLOCK
  69. 175  DIM P$(28)
  70. 180  FOR I=0 TO 28:READ P$(I):NEXT
  71. 192  FOR I=0 TO 9:F(I)=0:NEXT
  72. 195  ' INIT FLIGHT VARIABLES
  73. 196  FU=195480:FP=63:CC=75:AS=380:RC=6704:AL=1900
  74. 198  MZ=121.5:TR=4:FL=1:FA=10:BR=10
  75. 200  RA=0:AS(1)=380:FA(1)=10:CC(1)=75:AL(1)=1900:RP=40
  76. 201  DP(4)=39:DP(5)=52:DP(6)=75:DP(7)=15
  77. 202  L1=39.8667:G1=75.25:LL(1)=L1:GL(1)=G1:LS(1)=L1:GS(1)=G1
  78. 203  VO(1)=0
  79.